home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / kan_am.inc < prev    next >
Encoding:
Text File  |  1998-05-14  |  7.3 KB  |  485 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    ÆåìUîé
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. mid_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     addi.w    #$0034,d7
  17.     subi.w    #16,d1
  18.     subi.w    #32,d2
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d1
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     subi.w    #32,d1
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     addi.w    #16,d1
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d1
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     subi.w    #32,d1
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     addi.w    #16,d1
  69.     addq.w    #1,d7
  70.     move.w    d1,(a6)+
  71.     move.w    d2,(a6)+
  72.     move.w    d7,(a6)+
  73.     move.w    #$0003,(a6)+
  74.  
  75.     subi.w    #16,d1
  76.     addi.w    #16,d2
  77.     addq.w    #1,d7
  78.     move.w    d1,(a6)+
  79.     move.w    d2,(a6)+
  80.     move.w    d7,(a6)+
  81.     move.w    #$0003,(a6)+
  82.  
  83.     addi.w    #16,d1
  84.     addq.w    #1,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     rts
  91. @@:
  92.     addi.w    #$4036,d7
  93.     subi.w    #32,d1
  94.     subi.w    #32,d2
  95.     move.w    d1,(a6)+
  96.     move.w    d2,(a6)+
  97.     move.w    d7,(a6)+
  98.     move.w    #$0003,(a6)+
  99.  
  100.     addi.w    #16,d1
  101.     subq.w    #1,d7
  102.     move.w    d1,(a6)+
  103.     move.w    d2,(a6)+
  104.     move.w    d7,(a6)+
  105.     move.w    #$0003,(a6)+
  106.  
  107.     addi.w    #16,d1
  108.     subq.w    #1,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addq.w    #5,d7
  115.     subi.w    #32,d1
  116.     addi.w    #16,d2
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     addi.w    #16,d1
  123.     subq.w    #1,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d1
  130.     subq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     addq.w    #4,d7
  137.     subi.w    #16,d1
  138.     addi.w    #16,d2
  139.     move.w    d1,(a6)+
  140.     move.w    d2,(a6)+
  141.     move.w    d7,(a6)+
  142.     move.w    #$0003,(a6)+
  143.  
  144.     addi.w    #16,d1
  145.     subq.w    #1,d7
  146.     move.w    d1,(a6)+
  147.     move.w    d2,(a6)+
  148.     move.w    d7,(a6)+
  149.     move.w    #$0003,(a6)+
  150.  
  151.     addq.w    #3,d7
  152.     subi.w    #16,d1
  153.     addi.w    #16,d2
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     addi.w    #16,d1
  160.     subq.w    #1,d7
  161.     move.w    d1,(a6)+
  162.     move.w    d2,(a6)+
  163.     move.w    d7,(a6)+
  164.     move.w    #$0003,(a6)+
  165.  
  166.     rts
  167. *---------------------------------------
  168. mid_a:
  169.     move.w    C_X(a1),d1
  170.     move.w    C_Y(a1),d2
  171.     tst.w    C_LR_F(a1)
  172.     bne    @f
  173.  
  174.     addi.w    #$003e,d7
  175.     subi.w    #16,d1
  176.     subi.w    #32,d2
  177.     move.w    d1,(a6)+
  178.     move.w    d2,(a6)+
  179.     move.w    d7,(a6)+
  180.     move.w    #$0003,(a6)+
  181.  
  182.     addi.w    #16,d1
  183.     addq.w    #1,d7
  184.     move.w    d1,(a6)+
  185.     move.w    d2,(a6)+
  186.     move.w    d7,(a6)+
  187.     move.w    #$0003,(a6)+
  188.  
  189.     addi.w    #16,d1
  190.     addq.w    #1,d7
  191.     move.w    d1,(a6)+
  192.     move.w    d2,(a6)+
  193.     move.w    d7,(a6)+
  194.     move.w    #$0003,(a6)+
  195.  
  196.     subi.w    #32,d1
  197.     addi.w    #16,d2
  198.     addq.w    #1,d7
  199.     move.w    d1,(a6)+
  200.     move.w    d2,(a6)+
  201.     move.w    d7,(a6)+
  202.     move.w    #$0003,(a6)+
  203.  
  204.     addi.w    #16,d1
  205.     addq.w    #1,d7
  206.     move.w    d1,(a6)+
  207.     move.w    d2,(a6)+
  208.     move.w    d7,(a6)+
  209.     move.w    #$0003,(a6)+
  210.  
  211.     addi.w    #16,d1
  212.     addq.w    #1,d7
  213.     move.w    d1,(a6)+
  214.     move.w    d2,(a6)+
  215.     move.w    d7,(a6)+
  216.     move.w    #$0003,(a6)+
  217.  
  218.     subi.w    #32,d1
  219.     addi.w    #16,d2
  220.     addq.w    #1,d7
  221.     move.w    d1,(a6)+
  222.     move.w    d2,(a6)+
  223.     move.w    d7,(a6)+
  224.     move.w    #$0003,(a6)+
  225.  
  226.     addi.w    #16,d1
  227.     addq.w    #1,d7
  228.     move.w    d1,(a6)+
  229.     move.w    d2,(a6)+
  230.     move.w    d7,(a6)+
  231.     move.w    #$0003,(a6)+
  232.  
  233.     addi.w    #16,d1
  234.     addq.w    #1,d7
  235.     move.w    d1,(a6)+
  236.     move.w    d2,(a6)+
  237.     move.w    d7,(a6)+
  238.     move.w    #$0003,(a6)+
  239.  
  240.     subi.w    #32,d1
  241.     addi.w    #16,d2
  242.     addq.w    #1,d7
  243.     move.w    d1,(a6)+
  244.     move.w    d2,(a6)+
  245.     move.w    d7,(a6)+
  246.     move.w    #$0003,(a6)+
  247.  
  248.     addi.w    #16,d1
  249.     addq.w    #1,d7
  250.     move.w    d1,(a6)+
  251.     move.w    d2,(a6)+
  252.     move.w    d7,(a6)+
  253.     move.w    #$0003,(a6)+
  254.  
  255.     addi.w    #16,d1
  256.     addq.w    #1,d7
  257.     move.w    d1,(a6)+
  258.     move.w    d2,(a6)+
  259.     move.w    d7,(a6)+
  260.     move.w    #$0003,(a6)+
  261.  
  262.     rts
  263.  
  264. @@:
  265.     addi.w    #$4040,d7
  266.     subi.w    #32,d1
  267.     subi.w    #32,d2
  268.     move.w    d1,(a6)+
  269.     move.w    d2,(a6)+
  270.     move.w    d7,(a6)+
  271.     move.w    #$0003,(a6)+
  272.  
  273.     addi.w    #16,d1
  274.     subq.w    #1,d7
  275.     move.w    d1,(a6)+
  276.     move.w    d2,(a6)+
  277.     move.w    d7,(a6)+
  278.     move.w    #$0003,(a6)+
  279.  
  280.     addi.w    #16,d1
  281.     subq.w    #1,d7
  282.     move.w    d1,(a6)+
  283.     move.w    d2,(a6)+
  284.     move.w    d7,(a6)+
  285.     move.w    #$0003,(a6)+
  286.  
  287.     subi.w    #32,d1
  288.     addi.w    #16,d2
  289.     addq.w    #5,d7
  290.     move.w    d1,(a6)+
  291.     move.w    d2,(a6)+
  292.     move.w    d7,(a6)+
  293.     move.w    #$0003,(a6)+
  294.  
  295.     addi.w    #16,d1
  296.     subq.w    #1,d7
  297.     move.w    d1,(a6)+
  298.     move.w    d2,(a6)+
  299.     move.w    d7,(a6)+
  300.     move.w    #$0003,(a6)+
  301.  
  302.     addi.w    #16,d1
  303.     subq.w    #1,d7
  304.     move.w    d1,(a6)+
  305.     move.w    d2,(a6)+
  306.     move.w    d7,(a6)+
  307.     move.w    #$0003,(a6)+
  308.  
  309.     subi.w    #32,d1
  310.     addi.w    #16,d2
  311.     addq.w    #5,d7
  312.     move.w    d1,(a6)+
  313.     move.w    d2,(a6)+
  314.     move.w    d7,(a6)+
  315.     move.w    #$0003,(a6)+
  316.  
  317.     addi.w    #16,d1
  318.     subq.w    #1,d7
  319.     move.w    d1,(a6)+
  320.     move.w    d2,(a6)+
  321.     move.w    d7,(a6)+
  322.     move.w    #$0003,(a6)+
  323.  
  324.     addi.w    #16,d1
  325.     subq.w    #1,d7
  326.     move.w    d1,(a6)+
  327.     move.w    d2,(a6)+
  328.     move.w    d7,(a6)+
  329.     move.w    #$0003,(a6)+
  330.  
  331.     subi.w    #32,d1
  332.     addi.w    #16,d2
  333.     addq.w    #5,d7
  334.     move.w    d1,(a6)+
  335.     move.w    d2,(a6)+
  336.     move.w    d7,(a6)+
  337.     move.w    #$0003,(a6)+
  338.  
  339.     addi.w    #16,d1
  340.     subq.w    #1,d7
  341.     move.w    d1,(a6)+
  342.     move.w    d2,(a6)+
  343.     move.w    d7,(a6)+
  344.     move.w    #$0003,(a6)+
  345.  
  346.     addi.w    #16,d1
  347.     subq.w    #1,d7
  348.     move.w    d1,(a6)+
  349.     move.w    d2,(a6)+
  350.     move.w    d7,(a6)+
  351.     move.w    #$0003,(a6)+
  352.  
  353.     rts
  354. *---------------------------------------
  355. mid_t:
  356.     move.w    C_X(a1),d1
  357.     move.w    C_Y(a1),d2
  358.     tst.w    C_LR_F(a1)
  359.     bne    @f
  360.  
  361.     subi.w    #16,d1
  362.     subi.w    #32,d2
  363.     addi.w    #$004a,d7
  364.     move.w    d1,(a6)+
  365.     move.w    d2,(a6)+
  366.     move.w    d7,(a6)+
  367.     move.w    #$0003,(a6)+
  368.  
  369.     addi.w    #16,d1
  370.     addq.w    #1,d7
  371.     move.w    d1,(a6)+
  372.     move.w    d2,(a6)+
  373.     move.w    d7,(a6)+
  374.     move.w    #$0003,(a6)+
  375.  
  376.     subi.w    #16,d1
  377.     addi.w    #16,d2
  378.     addq.w    #1,d7
  379.     move.w    d1,(a6)+
  380.     move.w    d2,(a6)+
  381.     move.w    d7,(a6)+
  382.     move.w    #$0003,(a6)+
  383.  
  384.     addi.w    #16,d1
  385.     addq.w    #1,d7
  386.     move.w    d1,(a6)+
  387.     move.w    d2,(a6)+
  388.     move.w    d7,(a6)+
  389.     move.w    #$0003,(a6)+
  390.  
  391.     subi.w    #16,d1
  392.     addi.w    #16,d2
  393.     addq.w    #1,d7
  394.     move.w    d1,(a6)+
  395.     move.w    d2,(a6)+
  396.     move.w    d7,(a6)+
  397.     move.w    #$0003,(a6)+
  398.  
  399.     addi.w    #16,d1
  400.     addq.w    #1,d7
  401.     move.w    d1,(a6)+
  402.     move.w    d2,(a6)+
  403.     move.w    d7,(a6)+
  404.     move.w    #$0003,(a6)+
  405.  
  406.     subi.w    #16,d1
  407.     addi.w    #16,d2
  408.     addq.w    #1,d7
  409.     move.w    d1,(a6)+
  410.     move.w    d2,(a6)+
  411.     move.w    d7,(a6)+
  412.     move.w    #$0003,(a6)+
  413.  
  414.     addi.w    #16,d1
  415.     addq.w    #1,d7
  416.     move.w    d1,(a6)+
  417.     move.w    d2,(a6)+
  418.     move.w    d7,(a6)+
  419.     move.w    #$0003,(a6)+
  420.  
  421.     rts
  422. @@:
  423.     subi.w    #16,d1
  424.     subi.w    #32,d2
  425.     addi.w    #$404b,d7
  426.     move.w    d1,(a6)+
  427.     move.w    d2,(a6)+
  428.     move.w    d7,(a6)+
  429.     move.w    #$0003,(a6)+
  430.  
  431.     addi.w    #16,d1
  432.     subq.w    #1,d7
  433.     move.w    d1,(a6)+
  434.     move.w    d2,(a6)+
  435.     move.w    d7,(a6)+
  436.     move.w    #$0003,(a6)+
  437.  
  438.     subi.w    #16,d1
  439.     addi.w    #16,d2
  440.     addq.w    #3,d7
  441.     move.w    d1,(a6)+
  442.     move.w    d2,(a6)+
  443.     move.w    d7,(a6)+
  444.     move.w    #$0003,(a6)+
  445.  
  446.     addi.w    #16,d1
  447.     subq.w    #1,d7
  448.     move.w    d1,(a6)+
  449.     move.w    d2,(a6)+
  450.     move.w    d7,(a6)+
  451.     move.w    #$0003,(a6)+
  452.  
  453.     subi.w    #16,d1
  454.     addi.w    #16,d2
  455.     addq.w    #3,d7
  456.     move.w    d1,(a6)+
  457.     move.w    d2,(a6)+
  458.     move.w    d7,(a6)+
  459.     move.w    #$0003,(a6)+
  460.         
  461.     addi.w    #16,d1
  462.     subq.w    #1,d7
  463.     move.w    d1,(a6)+
  464.     move.w    d2,(a6)+
  465.     move.w    d7,(a6)+
  466.     move.w    #$0003,(a6)+
  467.  
  468.     subi.w    #16,d1
  469.     addi.w    #16,d2
  470.     addq.w    #3,d7
  471.     move.w    d1,(a6)+
  472.     move.w    d2,(a6)+
  473.     move.w    d7,(a6)+
  474.     move.w    #$0003,(a6)+
  475.  
  476.     addi.w    #16,d1
  477.     subq.w    #1,d7
  478.     move.w    d1,(a6)+
  479.     move.w    d2,(a6)+
  480.     move.w    d7,(a6)+
  481.     move.w    #$0003,(a6)+
  482.  
  483.     rts
  484. *---------------------------------------
  485.